home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / sound / melodyrecgui / melodyrecgui-de next >
Text File  |  1999-11-29  |  6KB  |  291 lines
  1. /* $VER: MelodyRec.rexx 2.0 (12.11.1999) © mEDi of dSd E-Mail:mEDi_dSd@GMX.DE & Ramboy of Warp9 E-Mail: rby@w-9.de*/
  2. /*
  3.  
  4.  
  5. 22.01.99    V1.0.1    Erste laufende version
  6. 24.01.99    V1.0.2    2 mini Bugs durch Ramboy@USA.NET behoben
  7. 25.01.99    V1.0.3    erste veröffentlichte Version 
  8. 14.02.99    V1.0.4    Englische Version (RAMBOY) und Fehler behoben (RAMBOY)
  9. 07.05.99    V1.0.5    Neuer Device Name (RAMBOY)
  10. 12.11.99    V2.0.1    (RAMBOY)
  11.  
  12. */
  13.  
  14.  
  15.  
  16. /* rexxsupport.library öffnen */
  17.  
  18. IF ~SHOW('LIBRARIES','rexxsupport.library') THEN
  19.    IF ~ADDLIB('rexxsupport.library',0,-30,0) THEN DO
  20.       say "Konnte das rexxsupport.library nicht öffnen"
  21.       EXIT(10)
  22.       END
  23.  
  24.  
  25. Signal On Syntax
  26. Signal On IOErr
  27. Signal off failure
  28.  
  29.  
  30. CALL PRAGMA("PRIORITY",1)
  31.  
  32. /* rexxreqtools.library öffnen */
  33.  
  34. IF ~SHOW(LIBRARIES,'rexxreqtools.library') THEN
  35.    IF ~ADDLIB('rexxreqtools.library',10,-30,0) THEN
  36.       EXIT(10)
  37.  
  38. IF ~SHOW('LIBRARIES','tritonrexx.library') THEN DO
  39.    IF ~ADDLIB('tritonrexx.library',5,-30,0) THEN DO
  40.       SAY 'Kann die <tritonrexx.library> nicht öffnen!'
  41.       EXIT(10)
  42.    END
  43. END
  44.  
  45. OPTIONS RESULTS
  46. Version = "2.0"
  47. Release = "1"
  48. DATE    = "12.11.1999"
  49.  
  50. NL = '0a'x
  51.  
  52.  
  53. MainProgramm    = "MelodyRec"        /* MelodyRec pfade z.B. "sys:pro/MelodyRec" usw. */
  54. main_UNIT    = "0"            /* def audiounit */
  55. main_AudioName    = "melodyaudio.device"    /* def audioname */
  56.  
  57. main_BITS_LIST.0 = 3
  58. main_BITS_LIST.1 = 8
  59. main_BITS_LIST.2 = 16
  60. main_BITS_LIST.3 = 32
  61.  
  62. call init_windows
  63.  
  64.  
  65. app = TR_CREATEAPP('TRCA_Name MelodyRec.rexx',
  66.                    'TRCA_LongName "MelodyRec GUI © MEDI [_- DSD -_] & RAMBOY [_- W9 -_]"',
  67.                    'TRCA_Info     "MelodyRec GUI"',
  68.                    'TRCA_Version  'Version,
  69.                    'TRCA_Release  'Release,
  70.                    'TRCA_Date     'DATE,
  71.                    'TAG_END')
  72.  
  73. IF app ~= '00000000'x THEN DO
  74.  
  75.    window = TR_OPENPROJECT(app,windowtags)
  76.  
  77.    IF window ~= '00000000'x THEN DO
  78.       ende = 0
  79.  
  80.       DO WHILE ende ~= 1
  81.          CALL TR_WAIT(app,'')
  82.  
  83.          DO WHILE TR_HANDLEMSG(app,'event')
  84.  
  85.  
  86.  
  87. /*say '************'
  88. say event.trm_class
  89. say event.trm_id
  90. say '*************'*/
  91.  
  92.  
  93. /* 'TRMS_ACTION' START */
  94.  
  95.     IF event.trm_class = 'TRMS_ACTION' THEN DO
  96.         SELECT
  97.  
  98.  
  99. /* QUIT */
  100.         WHEN event.trm_id = 1 THEN ENDE = 1
  101.  
  102. /* SELECT new file */
  103.         WHEN event.trm_id = 21 THEN call select_new_file
  104.  
  105. /* RUN */
  106.         WHEN event.trm_id = 30 THEN call RUN_melodyREC
  107.  
  108.  
  109.  
  110. /* 'TRMS_ACTION' END */
  111.         OTHERWISE
  112.         NOP
  113.         END
  114.     END
  115.  
  116.  
  117.  
  118.             IF event.trm_class = 'TRMS_CLOSEWINDOW' THEN
  119.                ende = 1
  120.          END
  121.       END
  122.  
  123.       CALL TR_CLOSEPROJECT(window)
  124.    END
  125.  
  126.    CALL TR_DELETEAPP(app)
  127. END
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137. EXIT
  138.  
  139. /***********************************************************************************/
  140. /**********************************************************************************/
  141.  
  142. select_new_file:
  143.  
  144.  
  145.     main_new_files = rtfilerequest(, , "Bitte neuen Dateinamen angeben", ,"rtfi_buffer=true rtfi_matchpat=(#?")
  146.     if main_new_files = "" then return
  147.  
  148. call TR_SETATTRIBUTE(window,20,'TROB_String',main_new_files)
  149.  
  150. Return
  151.  
  152.  
  153. RUN_melodyREC:
  154.                 /* FILENAME/A,AUDIONAME/K,AUDIOUNIT/N/K,BITS/ */
  155.  
  156. main_FILENAME    = '"'TR_GetAttribute(window,20,'TROB_String')'"'
  157. main_AUDIONAME    = TR_GetAttribute(window,10,'TROB_String')
  158. main_AUDIOUNIT    = TR_GetAttribute(window,11,'TROB_String')
  159.  
  160.     dummy    = TR_GetAttribute(window,12,'TRAT_Value')+1
  161. main_BITS    = main_BITS_LIST.dummy
  162.  
  163.  
  164. if main_FILENAME = '"'||'"' | main_AUDIONAME = "" | main_AUDIOUNIT = "" then return
  165.  
  166.  
  167.  
  168. say "RUN" MainProgramm main_FILENAME "audioname" main_AUDIONAME "audiounit" main_AUDIOUNIT "bits" main_BITS
  169. address command  "RUN" MainProgramm main_FILENAME "audioname" main_AUDIONAME "audiounit"  main_AUDIOUNIT "bits" main_BITS
  170.  
  171.  
  172. call rtezrequest( "Stop drücken"NL,
  173.             "um Aufnahme"NL,
  174.             "abzubrechen",
  175.             , "   _STOP   ","MelodyRec GUI", ,
  176.             "rtez_flags=ezreqf_centertext rtez_defaultresponse=0")
  177.  
  178. address command "kill" "melodyRec"
  179.  
  180.  
  181.  
  182. Return
  183.  
  184.  
  185.  
  186.  
  187.  
  188.  
  189.  
  190.  
  191.  
  192.  
  193.  
  194.  
  195. /* Error Log funktion © 1996-99 mEDi of dSd **********************************/
  196.  
  197. SYNTAX:
  198. IOERR:
  199. failure:
  200. error_num = rc
  201. error_Sigl = Sigl
  202.  
  203. if exists("s:Error_text_D.txt") then
  204.         call READLINES("s:Error_text_D.txt",error_num,1,"%s %1024c",dummy error_txt_d)
  205.  
  206.  
  207. error_log_msg.0 = 8
  208. error_log_msg.1 = "*************************************************"
  209. error_log_msg.2 = "Fehler "error_num" in Zeile:" Sigl
  210. error_log_msg.3 = "- Zeile wo der fehler aufgetreten ist -----------"
  211. error_log_msg.4 = SOURCELINE(sigl)
  212. error_log_msg.5 = "- Erleuterung -----------------------------------"
  213. error_log_msg.6 = "Deutsch : "error_txt_d.1
  214. error_log_msg.7 = "Original: "ERRORTEXT(error_num)
  215. error_log_msg.8 = "Programm: MelodyRec.rexx V"Version"."Release" ("DATE")"
  216.  
  217.  
  218. if ~WRITEFILE("t:Error.log",error_log_msg,append) THEN
  219.     call WRITEFILE("t:Error.log",error_log_msg,)
  220.  
  221. do i = 1 to error_log_msg.0
  222. say error_log_msg.i
  223. end
  224.  
  225.  
  226. if app ~= "APP" then
  227.     CALL TR_DELETEAPP(app)
  228.  
  229. EXIT
  230.  
  231.  
  232.  
  233.  
  234.  
  235.  
  236.  
  237.  
  238.  
  239. INIT_Windows:
  240.  
  241.  
  242. windowtags =    WindowID(1),
  243.         WindowTitle('MelodyRec GUI v'Version||Release" ("DATE")"),
  244.         windowPosition(TRWP_DEFAULT),
  245.         'VertGroupA',
  246.             'Space',
  247.             NamedSeparator(' © 1999 mEDi of dSd & Ramboy of W9'),
  248.             'Space',
  249.             'HorizGroup',
  250.                 'HorizGroup',
  251.                         'Space',
  252.                     text3("AudioName: ") 'Space' StringGadget(main_AudioName,10) 'TRAT_Value 32',
  253.                     'Space',
  254.                 'EndGroup',
  255.                     'Space',
  256.                 'HorizGroup' ,
  257.                         'Space',
  258.                     text3("UNIT:") StringGadget(main_UNIT,11) 'TRAT_Value 2',
  259.                         'Space',
  260.                     text3("BITS"),
  261.                     'Space',
  262.                     CycleGadget('main_BITS_LIST',1,12),
  263.                     'Space',
  264.                 'EndGroup',
  265.                     'Space',
  266.             'EndGroup',
  267.                     'Space',
  268.             'HorizGroupA',
  269.                     'Space',
  270.                 text3("File: "),
  271.                     'Space',
  272.                 StringGadget("",20) 'TRAT_Value 256',
  273.                     'Space',
  274.                 GetFileButton(21),
  275.                     'Space',
  276.             'EndGroup',
  277.                 'Space',
  278.             'HorizGroupS',
  279.                     'Space',
  280.                 Button("Aufnahme",30),
  281.                     'Space',
  282.                 Button("Beenden",1),
  283.                     'Space',
  284.             'EndGroup',
  285.                 'Space',
  286.         'EndGroup',
  287.         'EndProject'
  288.  
  289.  
  290. return
  291.